home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf / ARexx / Modular / ConWin.mod < prev    next >
Text File  |  1993-08-19  |  978b  |  19 lines
  1.     /*  --------- Open a console window --------- */
  2.     ConWin:    
  3.     wstr = 'con:'arg(1)'/'arg(2)'/'arg(3)'/'arg(4)'/Modular ARexx/CLOSE'
  4.     op = open('s',wstr,'w') ; tab = '09'x ; lf = '0A'x 
  5.     if wstr ~= 0 then do
  6.      a.1 = lf tab'A Modular Approach to Programming in ARexx'
  7.      a.2 = lf' As far as possible, each section of the program you are now'
  8.      a.3 = ' using has been stored as a separate callable function.  So :'
  9.      a.4 = lf || tab'A  The program itself is small.'
  10.      a.5 = tab'B  There are several separate files.'
  11.      a.6 = tab'C  Those separate files are called by'
  12.      a.7 = tab'   this progam when needed, and may also'
  13.      a.8 = tab'   be called by other programs (as they' 
  14.      a.9 = tab'   stand, or modified as necessary).'
  15.      a.10 = lf || tab || 'Click on the Close gadget to continue ... '
  16.      end
  17.      do i = 1 to 9 ; w = writeln('s',a.i) ; end
  18.      w = writech('s',a.10) ; c = readch('s') ; cl = close('s')
  19.     return